(rmail-summary-update-line): Replace duplicate line-beginning-position calls.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1b176781a323182d6f955ef2069ffeeb8472bdd..67d01e7e4be3b63226e019f7a427290455ad9bd9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2009-01-30  Glenn Morris  <rgm@gnu.org>
+
+       * mail/rmail.el (rmail-reply): Handle empty folders.
+
+       * mail/rmailsum.el (rmail-summary-update-line): Replace duplicate
+       line-beginning-position calls.
+
 2009-01-30  Toby Speight  <streapadair@gmx.net>  (tiny change)
 
        * generic-x.el (hosts-generic-mode, named-database-generic-mode):

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index d7b1aa2c28efc1f3b3c024a5e37398d8d0eecb82..8da18a055c8eb75a602fb392f35253f5fef1b72e 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -754,7 +754,7 @@ a negative argument means to delete and move forward."
       (while (and (setq ov (car overlays))
                  (not (setq high (overlay-get ov 'rmail-summary))))
        (setq overlays (cdr overlays)))
-      (delete-region (line-beginning-position) (line-beginning-position 2))
+      (delete-region start end)
       (princ
        (with-current-buffer rmail-buffer
         (aset rmail-summary-vector (1- n) (rmail-create-summary-line n)))